130 REM 'NOTE' THIS PROGRAM MUST BE RUN BEFORE THE BLOAD CAN BE TYPED IN AT $9C00.
140 TEXT : HOME : INVERSE :H = 9
150 ONERR GOTO 500
160 HTAB H: PRINT "**************************"
170 HTAB H: PRINT "* POORBOY'S PLE *"
180 HTAB H: PRINT "* BY *"
190 HTAB H: PRINT "* DEAN KAY *"
200 HTAB H: PRINT "**************************"
210 NORMAL
220 PRINT : HTAB 7: PRINT "PROGRAM TO ADD THESE FEATURES"
230 HTAB 10: PRINT "TO INTEGER AND APPLESOFT": PRINT
240 PRINT "HIMEM IS NOW $9500 AND IS NOT AFFECTED": PRINT "BY ANY COMMANDS EXCEPT 'RESET' WHICH": PRINT "REQUIRES A CALL-25600 TO RESTORE THE": PRINT "IN AND OUT HOOKS."
250 PRINT : HTAB H +1: PRINT "HIT ANY KEY TO CONTINUE": CALL -756
260 POKE 34,8: HOME : PRINT
270 HTAB H: PRINT "ANY KEY = STOP LIST"
280 HTAB H: PRINT "ANY KEY = RESTART LISTING"
290 HTAB H: PRINT "RETURN = ABORT LISTING"
300 HTAB H: PRINT "CTRL A = LAST BLOAD A & L"
310 HTAB H: PRINT "CTRL O = CURSOR ADVANCE"
320 HTAB H: PRINT "ESC L = JUMP TO MONITOR"
330 HTAB H: PRINT "ESC H = CLEAR SCREEN"
340 HTAB H: PRINT "ESC P = 30 CHAR LINE"
350 HTAB H: PRINT "ESC N = NORMAL LINE"
360 HTAB H: PRINT "ESC IJKM = SAME AS 'ESC ABCD'"
370 HTAB H: PRINT "SHIFT & = RESTORE POORBOY'S"
380 HTAB H: PRINT "CALL-25600 = RESTORE FROM INT"
390 REM MOVE DOS BUFFERS DOWN ONE SECTOR
400 POKE 40193,155: CALL 42964: REM CHANGE $9D01 TO $9B AND CALL $A7D4
410 POKE 1014,0: POKE 1015,156: REM CHANGE $3F6 TO $00, AND $3F7 TO $9C
420 PRINT CHR$(4);"BRUN POORBOY'S PLE"
430 NORMAL : POKE 34,0: VTAB 20: PRINT "DONE": NEW : END
500 HOME : VTAB 10: PRINT "POORBOY'S PLE. BLOAD IS NOT ON THIS ": PRINT "DISK. PLEASE TYPE IT IN AT $9C00 NOW": PRINT "OR LOAD IT FROM ANOTHER DISK."